﻿Public Class MementoCliente

    Private _nombre As String
    Private _telefono As String
    Private _importeVentas As Double

    Public Sub New(ByVal nombre As String, ByVal telefono As String, ByVal importeVentas As Double)
        Me.Nombre = nombre
        Me.Telefono = telefono
        Me.ImporteVentas = importeVentas
    End Sub

    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Private Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Public Property Telefono() As String
        Get
            Return _telefono
        End Get
        Private Set(ByVal value As String)
            _telefono = value
        End Set
    End Property

    Public Property ImporteVentas() As Double
        Get
            Return _importeVentas
        End Get
        Private Set(ByVal value As Double)
            _importeVentas = value            
        End Set
    End Property

End Class
